(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     20525,        632]
NotebookOptionsPosition[     18946,        576]
NotebookOutlinePosition[     19289,        591]
CellTagsIndexPosition[     19246,        588]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"s1", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"MultinormalDistribution", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", 
     "100"}], 
    StyleBox["]", "DesignDiscussion"]}]}], 
  StyleBox[";", "DesignDiscussion"]}], "\n", 
 RowBox[{
  RowBox[{"s2", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"MultinormalDistribution", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "]"}], ",", 
     "100"}], 
    StyleBox["]", "DesignDiscussion"]}]}], 
  StyleBox[";", "DesignDiscussion"]}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ss", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"s1", ",", "s2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", 
  RowBox[{"ss", "\[Transpose]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.510116793390625*^9, 3.51011681046875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "200"}], "}"}]], "Output",
 CellChangeTimes->{{3.5101168038125*^9, 3.51011681184375*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "ss"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xc", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "All"}], "]"}], "]"}], "-", 
      RowBox[{"Mean", "[", 
       RowBox[{"x", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "x", "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.510116821140625*^9, 3.510116862953125*^9}, 
   3.510116943515625*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"t1", "=", 
   RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"cov", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"xc", ".", 
     RowBox[{"xc", "\[Transpose]"}]}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"x", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], "-", "1"}], ")"}]}], "//", 
   "Timing"}]}], "\[IndentingNewLine]", 
 RowBox[{"t2", "=", 
  RowBox[{
   RowBox[{"AbsoluteTime", "[", "]"}], "-", "t1", 
   "\[IndentingNewLine]"}]}]}], "Input",
 CellChangeTimes->{{3.510116722625*^9, 3.5101167344375*^9}, {
  3.51011688640625*^9, 3.510116915515625*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{580., {2., 14.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{"1.2628786905111156`*^-15", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1.582472141799921`", ",", 
               RowBox[{"-", "0.39449608860268814`"}], ",", 
               "1.0141828102789059`", ",", 
               RowBox[{"\[LeftSkeleton]", "195", "\[RightSkeleton]"}], ",", 
               "0.4020739247301211`", ",", "0.536580449721235`"}], "}"}], ",", 
             RowBox[{"\[LeftSkeleton]", "198", "\[RightSkeleton]"}], ",", 
             RowBox[{"{", 
              RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "}"}]}], 
            "}"}]}], "}"}],
         Short[#, 5]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{90., {1., 14.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 56, 23003955372473865538, 5/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{90., {1., 14.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 56, 23003955372473865538, 5 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{160., {2., 14.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 56, 23003955372473865538, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{170., {1., 13.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->{Deployed -> True}],
  Out[56]]], "Output",
 CellChangeTimes->{3.5101169466875*^9, 3.510116979234375*^9}],

Cell[BoxData["0.328125`6.967584314246007"], "Output",
 CellChangeTimes->{3.5101169466875*^9, 3.51011697925*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"i", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"i", "<", "10"}], ",", 
    RowBox[{
     RowBox[{"Covariance", "[", 
      RowBox[{"xc", "\[Transpose]"}], "]"}], ";", 
     RowBox[{"i", "++"}]}]}], "]"}], "//", "Timing"}], "\n", 
 RowBox[{
  RowBox[{"i", "=", "1"}], ";", 
  RowBox[{
   RowBox[{"While", "[", 
    RowBox[{
     RowBox[{"i", "<", "10"}], ",", 
     RowBox[{
      RowBox[{"cov", "=", 
       RowBox[{
        RowBox[{"xc", ".", 
         RowBox[{"xc", "\[Transpose]"}]}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Length", "[", 
           RowBox[{"x", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "-", "1"}], ")"}]}]}], ";", 
      RowBox[{"i", "++"}]}]}], "]"}], "//", "Timing"}]}]}], "Input",
 CellChangeTimes->{{3.51011692315625*^9, 3.5101170851875*^9}, {
  3.510117133765625*^9, 3.510117137140625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.3877787807814457`*^-17", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.510116877546875*^9, 3.510116916546875*^9}, {
  3.510116967515625*^9, 3.510116982765625*^9}, {3.5101170161875*^9, 
  3.510117085859375*^9}, {3.510117140671875*^9, 3.510117163453125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.014999999999999458`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.510116877546875*^9, 3.510116916546875*^9}, {
  3.510116967515625*^9, 3.510116982765625*^9}, {3.5101170161875*^9, 
  3.510117085859375*^9}, {3.510117140671875*^9, 3.51011716346875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Sum]", 
  RowBox[{"x", "[", 
   RowBox[{"[", "i", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.510615328328125*^9, 3.510615356375*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Sum", "::", "argmu"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(Sum\\)\[NoBreak] called with 1 argument; \
\[NoBreak]\\!\\(2\\)\[NoBreak] or more arguments are expected. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/argmu\\\", \
ButtonNote -> \\\"Sum::argmu\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.510615340296875*^9, 3.51061535721875*^9}}],

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{"x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
  "]"}]], "Output",
 CellChangeTimes->{{3.51061534034375*^9, 3.510615357234375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"op", "=", 
   RowBox[{"{", 
    RowBox[{"dds", "\[Rule]", "None"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"dds", "/.", "op"}], ")"}], "\[Equal]", "None"}]}], "Input",
 CellChangeTimes->{{3.511328779953125*^9, 3.511328876796875*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.511328825578125*^9, 3.511328878765625*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"ROC", " ", "opt", " ", "test"}], "*)"}]], "Input",
 CellChangeTimes->{{3.511425210078125*^9, 3.511425217828125*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"seed", "=", "3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SeedRandom", "[", "seed", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]p", "=", 
     RowBox[{"RandomReal", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", "2", "}"}]}], "]"}]}], ";", 
    RowBox[{"\[Mu]n", "=", 
     RowBox[{"RandomReal", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"\[Sigma]p", "=", 
     RowBox[{"RandomReal", "[", 
      RowBox[{"{", 
       RowBox[{"0.25", ",", "1"}], "}"}], "]"}]}], ";", 
    RowBox[{"\[Sigma]n", "=", 
     RowBox[{"RandomReal", "[", 
      RowBox[{"{", 
       RowBox[{"0.25", ",", "1"}], "}"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"xp", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", 
         RowBox[{"x", "+", "\[Mu]p"}]}], "]"}], ",", 
       RowBox[{"RandomReal", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"0", ",", "\[Sigma]p"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1000", ",", "2"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"xn", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", 
         RowBox[{"x", "+", "\[Mu]n"}]}], "]"}], ",", 
       RowBox[{"RandomReal", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"0", ",", "\[Sigma]n"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1000", ",", "2"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"truth", "=", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"ConstantArray", "[", 
        RowBox[{"1", ",", 
         RowBox[{"{", "1000", "}"}]}], "]"}], ",", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"{", "1000", "}"}]}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"classifier", "=", 
     RowBox[{
      RowBox[{"PseudoInverse", "[", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{"x", ",", 
           RowBox[{"Append", "[", 
            RowBox[{"x", ",", "1."}], "]"}]}], "]"}], ",", 
         RowBox[{"Join", "[", 
          RowBox[{"xp", ",", "xn"}], "]"}]}], "]"}], "]"}], ".", "truth"}]}], 
    ";"}], "\n", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prediction", "=", 
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{"x", ",", 
          RowBox[{"Append", "[", 
           RowBox[{"x", ",", "1."}], "]"}]}], "]"}], ",", 
        RowBox[{"Join", "[", 
         RowBox[{"xp", ",", "xn"}], "]"}]}], "]"}], ".", "classifier"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.511425300421875*^9, 3.511425319875*^9}}],

Cell[BoxData[
 RowBox[{"truth", ";"}]], "Input",
 CellChangeTimes->{{3.511425406109375*^9, 3.511425407296875*^9}, 
   3.511425454609375*^9}],

Cell[BoxData[
 RowBox[{"prediction", ";"}]], "Input",
 CellChangeTimes->{{3.5114253378125*^9, 3.51142534015625*^9}, 
   3.511425456796875*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"RandomReal", "[", 
     RowBox[{"1", ",", "50", ",", 
      RowBox[{"WorkingPrecision", "\[Rule]", "1"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"RandomReal", "[", 
     RowBox[{"1", ",", "50", ",", 
      RowBox[{"WorkingPrecision", "\[Rule]", "1"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "x", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "y", "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.51142546953125*^9, 3.511425495703125*^9}, {
  3.5114255343125*^9, 3.51142563125*^9}, {3.51142569046875*^9, 
  3.511425697484375*^9}, {3.511425805375*^9, 3.511425836140625*^9}, {
  3.5114258968125*^9, 3.51142592665625*^9}, {3.5114259765625*^9, 
  3.51142599575*^9}}],

Cell[BoxData["50"], "Output",
 CellChangeTimes->{{3.511425980453125*^9, 3.51142599628125*^9}}],

Cell[BoxData["50"], "Output",
 CellChangeTimes->{{3.511425980453125*^9, 3.51142599628125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Length", "[", 
  RowBox[{"Union", "[", "x", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Union", "[", "x", "]"}]}], "Input",
 CellChangeTimes->{{3.511425928265625*^9, 3.51142593384375*^9}, {
  3.511425966046875*^9, 3.5114260144375*^9}}],

Cell[BoxData["15"], "Output",
 CellChangeTimes->{
  3.511425698609375*^9, {3.51142592321875*^9, 3.511425934625*^9}, {
   3.51142596784375*^9, 3.51142601515625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0.0625`1.", ",", "0.125`1.", ",", "0.1875`1.", ",", "0.25`1.", 
   ",", "0.3125`1.", ",", "0.375`1.", ",", "0.4375`1.", ",", "0.5`1.", ",", 
   "0.625`1.", ",", "0.6875`1.", ",", "0.75`1.", ",", "0.8125`1.", ",", 
   "0.875`1.", ",", "0.9375`1."}], "}"}]], "Output",
 CellChangeTimes->{
  3.511425698609375*^9, {3.51142592321875*^9, 3.511425934625*^9}, {
   3.51142596784375*^9, 3.51142601515625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ss", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", "y"}], "}"}], "\[Transpose]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"ss", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Union", "[", "ss", "]"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.51142563946875*^9, 3.511425651953125*^9}, {
  3.511426041625*^9, 3.51142604646875*^9}, {3.511426263453125*^9, 
  3.511426264921875*^9}, {3.511426303203125*^9, 3.51142631403125*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQTRnYYE8eH50+AKVPEMknlr6Ag4+LvoKDD6Nv4ODD
6DtUph/g4OOiH6Hxn1CJfkYi/YJE/is08Tc4+K+I5L8jkv+GAP+dPQAxYmT2

    "]]},
  AspectRatio->1,
  Axes->True,
  ImageSize->{252.50000000000006`, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.511425653234375*^9, {3.511426033484375*^9, 3.51142604703125*^9}, 
   3.51142626575*^9, 3.511426316484375*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQjR9ssMdOH4DSJwjQFwjQV9DoG2j0HQL0AwL0IzT+
Exz0MzT6BRr/FZr4Gxx8mLp3OPhv0Pjv7AEdYzNj
    "]]},
  AspectRatio->1,
  Axes->True,
  ImageSize->{252.50000000000006`, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.511425653234375*^9, {3.511426033484375*^9, 3.51142604703125*^9}, 
   3.51142626575*^9, 3.5114263165*^9}]
}, Open  ]]
},
WindowSize->{1016, 586},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1335, 41, 148, "Input"],
Cell[CellGroupData[{
Cell[1917, 65, 288, 7, 67, "Input"],
Cell[2208, 74, 138, 3, 38, "Output"]
}, Open  ]],
Cell[2361, 80, 594, 18, 94, "Input"],
Cell[CellGroupData[{
Cell[2980, 102, 669, 20, 121, "Input"],
Cell[3652, 124, 4755, 132, 209, "Output"],
Cell[8410, 258, 111, 1, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8558, 264, 953, 29, 121, "Input"],
Cell[9514, 295, 307, 5, 43, "Output"],
Cell[9824, 302, 303, 5, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10164, 312, 164, 4, 48, "Input"],
Cell[10331, 318, 519, 10, 22, "Message"],
Cell[10853, 330, 192, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11082, 339, 307, 8, 67, "Input"],
Cell[11392, 349, 97, 1, 38, "Output"]
}, Open  ]],
Cell[11504, 353, 157, 3, 39, "Input"],
Cell[11664, 358, 3218, 94, 391, "Input"],
Cell[14885, 454, 140, 3, 39, "Input"],
Cell[15028, 459, 142, 3, 39, "Input"],
Cell[CellGroupData[{
Cell[15195, 466, 886, 21, 148, "Input"],
Cell[16084, 489, 94, 1, 38, "Output"],
Cell[16181, 492, 94, 1, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16312, 498, 264, 5, 67, "Input"],
Cell[16579, 505, 164, 3, 38, "Output"],
Cell[16746, 510, 454, 9, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17237, 524, 739, 18, 94, "Input"],
Cell[17979, 544, 487, 14, 321, "Output"],
Cell[18469, 560, 461, 13, 321, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
